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1620 1F (X14+4)< (X+25) AND (X1+4)*(X-1%) AND (Y1+4)>Y-12 AND Y1+4< 
(Y+1ó6 THEN BEEP:PU=PU+1:160SUB 19820: TIME=0:GOTO 1720 A 
1630 1F X-1585 THEN 1450 Ñ 

1640 IF (244) (+25) ANDO 0(2+490 50615) AND (1244) +Y-12 AND Y2+4< 
Y+16 THEN BEEP:PU=PU+1:GOSUB 1830+ TIMES 03GOTO 1720 

1650 1F X-15>125 THEN 1670 E 
1660 1F (X6+4)< (425) AND (X6+4)>(X-15) AND -(Y16+4)+Y-12 AND Y6+4< 
Atte THEN PEER! DU=P4: 1 GOSUE-19701T IME=0+S0T0- 1720 

1670 1F X-15165 THEN 1690 

1680-1F -(XH4+4)< 0425) AND (X3+4)-6X-15)- AND (1344) >Y-12-AND- Y3+4< 
Y+16 THEN -BEEF: FU=PL+1:G0SUB 1840: TIME=0:GOTO 1720 

1690 1F X-155200 THEN 1710 a 

1700 1E 1X44+4)< (+25) AND (X4+4) > (X-15). AND. (1444) :Y-12 AND. Y4+4< 
Y+ió THEN BEEP:FU=PU+1:GOSUB 1850: TIME=0: GOTO 1720 

1710 1 (X5+4)2% (X+25) AND (X5+4) 3 (0-15) AND (Y5+4) >Y-12 AND YS+4< 
Y+16 THEN BEEP:FU=PU+1:GOSUB 1860: TIME=0 
1720 SPRITE OFF: INTERVAL. ON: RETURN 


AAA AI AAA AAA 
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1730 

1740 FOR I=1 TO. 6 : BEEP: NEXT: :60= 50+1: TIME= =0 : RETURN S 

17530 

1760 e : 

1770 SFRITE ON: INTERVAL OFF. Q 

1780 * 

1790 Ek=1+(EE+1)MOD (7) a 

1800 ON EE GOSUBE 1820, 1930,1840, 8530,1860,1870: RETURN 

1810 7 E 

1820 X1=15+ INT (RADIO): 1 INT (RAND (13170) + PUTSPRITE 6, (XI, Y17, 

7,11: RETURN a 

1830 qu dd dd ld =INT(RND (1) 170) sPUTSPRITE 7, a o 

13,127 RETURN 

1840-X3=13 St INT(RND (130) 5 Y3= INT(RND(1)+170)3PUTSPRITE 905 ¿3 $) Q 

12,11: RETURN - 

1850 X4=175 +INT(RND(1)%25) 1 Y4= INT(RND (19170) + PUTSPRITE 2, (X4, Y4) : : Q 

113,12: RETURN , E E de 

E X5=210+INT(RND (1) K25) 1 Y 5=INT(RND(1)170) 1 PUTSPRITE 10,015,185. ——( 
16,111 RETURN e Jos 

e X6=95+ INT (RND (1) 3 0) 1 Y6= -INT(RND(1) 170) 1 PUTSPRITE | 11, (X6, Y6) a Q 

133 12: RETURN 

1890 . sprites de la rana Q 

1900 o ME | 

1910 DATAO,0,0,12,32,7F,FE,FF,FF+FO,FE,7F,fF,78,0,0,0,0,0,0,0,0,8 a 

0,€0,00,0,0,00,80,0,0,0 | in 

1920 DATAO,0,0,3,F,1F,38,78,60 ¿D8,BF,FC, TE 47B,33,1,5 o dl E 
4,389,389, 20,0E3,5,3,070 EO,50 

1930 Proy en O, Fy1F,30,78760,d8BF,FE,70;FC0,F8 diri Dil FF,FO, AS 
17,38,39,30,F0,1989,0,14,14,0,0 Q 

1940 DATA-0, 0% o ¿Oy 10 ,9,25,1F, 4Es 387050 0, 0,0,0,0,8,18,30,78,E0,80-- 
2540407050, o 0 0, o Q 

1950 DATAO, 0,0 0,0, 1,E,F,3F,4E,80,0,0,0, o 10,0,0,0,15,B9 ¿FO, 80 +80, 

890, 0.00.00 10,0,0, O Q 

1960 co Sprites rana girarada 

1970 

1980 DATA O ¿20,0 9, o 10,1 543 DO. 311, O, Ds, O, o ,0,30, 48, aC, FE, 7F ,FF, E 


A 8 
a 


1990 DATA COLFB,FF,E, Co: ds 10,34, 73,40,A0, 0,0,7,A,0, lo, O,CO, FO, 
F8,50,1E,6, 18 ED, 3F; a DE,CC,80 
2000 DATA co, FS,FE,F ,05,E0, 10, 16,€,F, 18,30,2 2,28, 0,0, ,0,0,0,00,FO, | : 
F8,50,1E,6, 18, FD IE SERES ¡ CTA 
ss dd DATA O, 10,18,30,18,7, 1, 0,0,0,0,0,0 0 10, o, 0; jo, 0,0 18, 10, As, FB, AQ 
ICO O 000077 
: 2 DATA 0,0, 0,78,9D,F,1, ls e 0,0,0,0,0; o ¿0,0 ,040,0,0,80,D0,FO,FC 
725,1, 0,09,0,0,0 : E Ss hoi e Q 
2030 . i lo] po e 
2090 "MENSAJES DE. FINDE. JUEGO: a lll A Po OA A, cd ES cer p ps Q 
2050 el A bid! E 
2060 ULS:COLOR 1,15,6 PRA | a QQ 
2070 PUT SPRITE1, (110,208), MA. 
2080 LOCATE 3,6: FRINT"_LO E LOS HABITANTES" AA (QA 
2090 LOCATE 4,8: PRINT" DE LA CHARCA SE TE HAN" 
2100 LOCATE 10,10: PRINT" INDIGESTADO" 
2110 LOCATE 5,14:PRINT"PUNTOS CONSEGUIDOS =",PU a 
2120 LOCATE 2,18:PRINT" LO INTENTAS DE NUEVO [S/NJ" 
2130 X$=INKHEYS E 
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2140-16 XE=ng: | 
ca RASO. LF... Xi bz. LA OR KEN 
REGA ¡SOTO 2130. 


2180 1 
| A 75 26144 ESA 
22200 FOR I=6175 TO 6912 “STEP posar ad VPOKE E el 
(2210 FOR 1=6881 TO 6910: VFOKE1,201: NEXT 
2220 FOR 1=6849 TO 6878: VPOKEI,200: NEXT | 


“22307 


1987 - AMIGOS DEL 


año 


cara 
ns 


Es 
'24 


Eo 


ON- 
NT 


LA com) 


una recta por el método dé losmiínimos cuadrados. También present 
a er pantalla otros datos de interés como" i de 


do 1 LT “"NUME E O.-DE- FUNTOS: "MES DIMX ONES y Y (NEO, Z (NE) 


EEES E E 
SO O E O E A E 


AJUSTE A UNA RECTA 


COLOR 215,4,4:SCREEN OsWIDTH 39 
E dy 2 PRINTUAJUSTE A UNA RECTA" 
y FPRINT"Este programa ajusta uña mube de puntos a 


FRINT "varianza, da a haa cos ficientes de regr 
ión, correlación, eta: : pa 
PRINT+FRINF" Pulsa una tecla para comenzar" 


LE INEEYESL THEN ELSE-OLSG 
DEFSNGA-Z 


¿INPUT X=" XCD): INPUT" Y=" Y CI): NEXTI 
EI TONP + XEM DD NEXTIEX=EX/NP 
> YA Y CID NEXTI0EY=EY/NP ue 
(DRA CIO EX) A (XX CIOA EDO 2 NEXTISDX2=DX2 NE 
DY AY CIO LEYVA CY CODO EVO NEXT: DY 2 =DY O /NE 
IVA CIDY CD NEXTI: EXY=FXV/NF 
EXA 


y (XV EXE VIDA do BEY 
E AMEYI) LOU dad ¿ls 1 de Ra LOs Ze Bi GOSUESOO 

ATEO, Q35PRINT"ELXJ= GEXLOCATEO, li PRINTUECY T="EY1L0OCAT 

e INTYECI YT" EXE LOCA E, 33 PRINT"COVIX,VI="3 FXY-EX*EY 5 LOCAT 

y ATPRINTOVAR EXIST DAZ 


AL 


ECTA- DE REGRESI 
TRPRINTOYZ SS TRECA) IX UES E: LOCATEO, 8: FRI 
ON=" 


or E 
MMOQEEIL 


. poa hb Ls PEINTACOE FLO LENTE. DE. CORRELACION 
LACA Eo da x ¿412 PRINTURAZON.. DE. CORRELACION:=* 2 LO 


>, PROA A di q dd 


eo, rEdI ton 


-RINT"FULSA. TECLA-FARA GRAFICA. "3 LOCATEO, 18: FRINT" 
JECERA EN"*LOCATEO, 19:PREINT"PANTALLA HASTA QUE FU 
)FRINTUTECLA. 

(MEX CD ENEXT Is GOSUESZO: NX=MIN: FOR T=1 TONE" Z (1) =X ( 

Di MX=MAr FOR I=1T0 XD) =Z (102557 MX MEXTI 

YODA NEXTI: GOSUEBZDO: NY=MIM2 FORT =1TOMF 2 Z (1) =Y ( 
Os MY=MAs FORI=1 TONE: Y (1) =Z(1)*190/MY:+ NEXTI 
""G0TÓ 190 


a F OR I= 


LES 
bl MA a 190) 1 LINE CO, 1 ROPA NYA190/MY) 
Elis 

OOOO RSS BOTOZSO 
+9) ld dd! C0ZE0 


=LQRI+B) 4190/10: A 
E MEE Y a sde 5 e Ñ E ; pa no pr 
1003 E RIN E "po ULSA o PARA OTRO. mL OCATEO, 12: PRINT 


FA 290E a E 1FGE= E "O"ORGE="0"T HE NRUNEL. SEI 


E PemInE(STREID 7 


> MINS CO LFORI=I TONES 1EZ 1) MINGOTO 340 
Os (1) Lal | 


¿CD AMAGOTO 370 


270 NEXTI3 RETURN | 

280 CLSTLOCATE4, 10% PRINT*"FARA EL SIGUIENTE PROGRAMA" 
390 LOCATE4, 12: PRINT"PULSA FLAY EN El CASSETTE" 

400 CLOAD 
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eme 


. a, 

DN ce e 
o o y 
ES SY .. 


110 SOREEN 2 |. 

20 COLOR 10, 4,10 : e 

30 FOR N =1 TO 10 STEP 2 

40 LINE (O+N, 63+N)—(255-N, 128- 051, a 

50 NEXT ON ] 

60 FOR N=O TO 255 STEP 2 . | q GA A A 

70 VEFOKE N+6144,05 VPOKEN+6145, 1 ¡VFOKEN+6656, 01 VPORE N+6657, 

80 NEXT-=N cia 

90 VPOKE A, 235: VPOKE- 15-A, 2551 VPOKE -4096+0, 2551 VPOKE 4111-M,255 
tt OA 47 THEN VPOKE-A, 129: VPOKE 15- A, 129: VPOKE 4096+M,129: VPORE 
bs o das 1291 A=01-G0TD 90ELSE A=A+1 E 

al VROKE A=1, 129: VPORE-16-A,129:VFPOKE 4096+A-1,1291 VPOKE -a112-Ay 

20 GOTO. sol 


207- AMIGOS DEL MSX 0 1987 E e. pe 


ejer 


REM xk DIBUJO DE LA PALABRA TENIS + 
COLOR 1, 14, El e] > JUE de DU Y | Ñ 
cts 

OSCREEN 
'PSET(S, 
DRA 


DRAM"RZGD7L19DERI9D1GL2SU7RI9USL IIS" 
PAINT 69220 7 l 
e DIBUTO EL—TENISTA- Mes 
pa em. liyt a 


DRAWIRaSn 
50 -FAINT(100,77).,1 
CIRCLE (97,85 Yo u 


270-ETRELECCOE 05) yt 
FSET(101,86), h- 
DRAW"EZLZ" : 
CIRCLE (100,90),3,1,3%.14,6.28 
PSET(95136).,.. 
DRAW"DEGID2G1D1" 
PSET(101.96),1 
DRAW"D2GID2G1IDI1" 
FSET(99,104),6 
60 DRAW"R2É1 FA DEIRPEIRZEIAZ DAL 2D1L2D1L-4DOL1D1D361D361D361D361D361 
a PERU IU 
0370 FAINT(1Ó2,106), , Ml 
80 FSET(116, o e E MU 
390 DRAN"EIRZEIRZE1R2EIRZELRZE1R2USR6DSL4D2 2L2U21.2611.261L 261126112 
G1L261D1U8" í | Ni 
400 FSET(79,113),1 j 
410 DRAW"G2 PDIGSDIG2DIGIDIG2D1G1UZLSDSRAD2RCUZE2UIESULEZUIE2AESS 
Ef" 
420 PSET(99, 136),4 to 
ZO DRAN"L10012F2R2E2RZEZRZESFZRZFZRZEZUZEZUZEZU? HALA H1LAHAL1H2L 4 
4390 PAINT(95,140),4 
450 PSET(106,151),1 
460 DRA ODA ADS ADAFADIF ADAFADAFIDIFIDIFADIFADARAUZFIRIFIRZFOR 
2U1H7L. 3 RSU HU SHIA IUCN AAA U2HILUAHIULH1S 
470 FAINT(ZS, do 
480 E ET (141,94) 5 i 
490 DE ETA Cer 
pe 7500 PAINT 98) 71 UE 


4 


GARA AAA 


: 510 CIRCLE (187, 72, a! 
20-OTROLECISO E 


30 PAINT(190,82), 

E PSET (77,182), 1 l E OE E El e Po 
330 ONO DORADI ARA EIVIELUIEIUIELUIEUSDERAFIRIFIRSELO" li 
360-FAINT<47, 169) 51 . ha 
Erimy PST AL $ do E 
Ez REN io] hos De LOS DATOS FRELIMINARES EEK 
3590 SCREEN 1 
600 HEY OFF A a a sion Lati 
610 CLS:REEF»LOCATE 1,10: LINE INELIT "INDICA 1-0-2 JUGADORES WE 
620 1 WE="2" THEN 450 d 

30 1F Wé="1" THEN 1250 e 
640 W=VAL (WE) IF 41 OR A=2 THEN 610. ; cl 
650 CLS7REEF: : LOCATE EM 10: LINE INPUT "NOMBRE DEL. PRIMER a 


a : OE i 
s60 La 5: BEER: LOCA TE 1,1 O: LINE INEUT "NOMERE DEL. AUN JUGADOR: 
Se A mas pe NES mm Bl : e 
A 670 CLS: BEERSLOCATE- 0771 dei NIVEL DE JUEGO M0" LOCA 


630 RÉVAL<Ra pu 

690-1F-R24-0R- 8 THEN 670 a E 

ZO00-CLS BEER LOCATE-0 lOs Lo DUE PNELIE-- penirTOs PUNTOS SERA: El FI 
NN. DEL..MACH CA ALTE) 

710. _1F .T2=0 OR. TS25 THEN 700 : 

720 REM *** INSTRUCCIONES 2 JUGADORES Ae 

750 CLS: L.OCATE 10,6: FRINTO% 

740 LOCATE 3,103 PRINT" JUEGAS A LA IZQUIERDA" 
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HR 
o 
> 
>) 
> 
> 
Dd 
| 


A E ID 


¿GOTO 1190 


1180 coro 3980 


750 LOCATE 3,12:PRINT"TU RAQUETA ES LA NEGRA" 


760 LOCATE 3,14:FRINT"PULSA S FARA AVANZAR" 


TITOALOCATE 9, L6G:PFRINT"A-PARA RETROCEDER" 


72280 LOCATE a IB:FRINTYN FARO SUBIR” 
790-LOCATE SO FPRINTAZ-FARA BAJAR" 

800 FOR. G=1 a 4300: NEXT..6 , 

3910. FOR E=1 TO 25:FRINT:BEEF: NEXT kE 

3820 ELSiILOCATE 10,6:FRINT. NE , 

830 LOCATE 3,102. PRINT "JUEGAS ALLÁ DERECHA ze 
340 LOCATE 3,123 PRINT"TU RAQUETA ES LA AZUL" 
850 LOCATE 3,19: FRINT"FULSA O FARA AVANZAR" 
3860 LOCATE 9,16: PRINT"P FARA RETROCEDER" 

870 LOCATE 9,18:PRINT"O FARA SUBIR" 

3880 LOCATE 9,201 PRINT"L PARA BAJAR" 

820 FOR G=1i TO Md NEXT G ] 

3900 FOR E=1 "TO ¡FRINTIBEEF: NEXT OE 


QLO REM ex COMIENZO ARE JUEGO? POSICIONES INICIALES. DE LASRAQUETA 


SY LA PELOTA erex 

920-COLOR-1,14,2 

30--SGREEN-3- 

940. X=126:Y=0. 0 ed ton e E p e 
29530 X1=41Y1d= E a A A E A e 
960 E 121 K=94 

970 L=240:M=94 

$980 ón NE< > "MSX-EORG" THEN GOSUE 1410 ELSE bl 1630. 

990 FSET (I,K-4),1:PSET(J,K), 1: FSET(J,K+9), 

1000 PSET de, Ma), 4:PSET(L,M),4: PSETUL, 44), “Aj 

1010 REM xx DIBUJO LINEA DIVIS SORIA sex 

1020 LINE (126,0)-(126,192),6 

1OZO REM xx MOVIMIENTO Y REBOTES DE LA PELOTA *x**e 


"1040 XI=(X-X1) 


1050 YI=(Y+Y1) 
1060 FSET(XI,YI),1 
1070 PRESET (X,Y) 


10990 --1F- YI->189 -TFHEN-Yi=-RIrREEP 
1100.-1F -YI<2 THEN-Yi=RsBEER 
1110 -1F FOINTOXI-X1d, Y1)=1-THEN-X1=-4: BEEP:+G0OTO 1040 
1120.1€.FOINTLXL, Y I+Y14)=1-THEN-Xd="44-REEP+-GOTO-1040-- 

1130 _1F POINT(XI,YI+Y1)=4 THEN X1=4: BEEP:GOTO..1040 

1140 1F POINT(XI-X1,Y1)=4 Ai 4 RBEEP:s GOTO 1040. 

1130 REM _ xxx MARCADOR EXE 

1160 IF X13255 THEN X1=-42 Y]i= Rs X= 1265 ¡Y =O :FLAY"OSABDOADD"": SCREEN. L 


1170 1F XI<0 THEN PLAY "OSARCOADD": SCREEN 1: 6OTO1200 


1190 A=A+1:LOCATE 0,6: PRINT"*RHXER PUNTO PARA LA e UE R 


AQUETA NEGRA ERRE LOCATE 3,111 PRINT¿QEÉ" NEGRA="3 A: PRINTS UTSN 


+" AZUL="3E3 FOR V=1 TORAOPNEAT Vi1lF As Tv” THEN GOTO 1210 ELSE SER 
EEN 3:GOTO 960 
1200 EEY OFF) B=B+1>LOCATE 0,6: FRINT "e PUNTO PARA” LA 


RAQUETA-AZUL- RR LOCATE- 3 LISPRINT> NE" AZUL="pEBrLOCA: 


TE-34 12 PRINT-03%".--NEGRA="3 A: FOR V=1-TOL4007 NEXT V>1F-B=T- THEN -GO0 
TO.-1220-ELSE GOTO. 930 


1210 LOCATE 0,ló2: FERINMT "HAS GANADO "0%", RAQUETA NEGRA": GOTO 182 
8) d + e di 


1220 LOCATE 0,16: PRINT "HAS GANADO "¿NE", RAQUETA AZUL" 


e RO 


3 FRESET(L- 4,144) 


z . 1810 


3 re DATOS E 
LS: REEF: LOCATE 
, -"MSX-BORG" d : 

1260 CL HEEPILOCATE | 
APE-O O MOTE INPUT"DE ca 
LO ReVAL (R$) ne 281 NA 
IF Re 4-0R R58- THER 
1290 CS: BEEF+LOCATE O, 
—IM..DEL... MACH A E 
24500: E 


Aur 


1400 6 
1410 A= E | 
+ =4 "GOTO 
1430-1F-Ak="A" OR 
-¿ PRESET (44,44) 
1440-1F. As="8" OR Ak 
APRESET(-=4.,k44)-1 
1450 IF _Ag="W" OR 
1460 _1F Agf="Z"_0R. 
(1470 1F X1=4 GOTO 1 
1480 IF Af="F" OR Ax 


Ags 14 A ve 


pe 


1490 IF Ar="0" OR Aj= 
SPRESET(L+4, M4-4) - 

1500 TF Ag=ro OR Ag="1" THEN. M=M+4 5 
CSI TIF AE="0" THEN M=Mm-4: PRESET(L, 
15720 REM xxx LIMITES DE LAS 
AS3O IF Kx=6 "THEN ES 7 
1540-1F K:=186 THEN k=186 e 
Hr THEN CIO : 
ER THEN 122 
TEM le Met 
LF sE E 
AMAN SL 
1E-LUCi3o- 
RETURN 


y THEN 


1560 
AB 7ZO 
1580. 
1590. 


1400. THEN pS 


INPUT" 


"AC 


3 PARA. y ABAD 


(I+4, 


RAQUETAS. ES 


DE 


i 
B 


JUEGO xa 


3 


KO 3 PRESET (J44,=4) 


c1i720 1F Y 22 THEN 5 12 
TIO MF X1I>0" THEN i310 e E 
1740 REM xx MOVIMIENTO AUTOMATICO DE LA RAQUETA DE La MAQUINA. E 
N-LA MODALIDAD DE 717” JUGADOR” HR 


1750- 1F-Y1>0 AND Ma TABA ce Memes PRESET(L, M= R= -2) : PRESETUL, mM Ro): FR 
-RESET(L.,M-R-5) 


-ESETAL.. MRS). 


| 1770. TF XIX 100. AND Lo 2134 AND 3100. THEN LL. 41 PRESET(L+4, M- 4; PRE 
¿SET (1+4,M) :PRESET (L+4,M+4) e 


NE M-4) : PRESET (L-4,M) : PRESET (L-4,M+4) 


-4, M-4) : PRESET (L-— 4, Mi + PRESET (4, M9) 


GOTO 1830 EN : A i A e 


1780 IF XI5L-4 AND L<248 AND Y ICM. AND. Y 1>m> -60 THEN Ls Lea: :PRESETIL 


1760 1F-Y1<%0.-AND M>Y1 THEN M=M-—Rs PRESET(L, MeR+2) HPRESET(L, MER) PR WEDiS= 


11790. 1F XI*L-4 AND L¿248 AND Y 13M. AND YI< -M+60 THEN. La =L+4: PRESETUL 


SN E an 


ess 


LL IST 

10 SCREEN 1: KEY OFF 

20 TABLA=BASE (7) 

ZÓ CARACTER$="Wy" 
40 DIREC= =TABLA+ASC (CARACTERES) x8 
30 FOR X=DIREC TO DIREC+7 

50 READ H 

TO VEFDKCE X,H 

80 NEXT 

83 LOCATE 14,10:PRINT"W" 

90 DATA -24,60,70,1 126, 50 12 1251, 153 
100- GOTO: 100 

110 

130 -00 PRUEBA. A SUSTITUIROO 
O <LA- LINEA -85 POR: 
ARO MEE EGB y ASCACARACTERE)> 
UM 150. “VERAS QUE HACE-LO- MISMO. 


—8 
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AE dal ESE ES SS 
2 E EE E ES 


HARE APA 


ces al Grutas 


y Fl 'DE 


107 1D6L 1D4L 11 1RIDA 


BRIELUZRIUZ St E 
fos 0d 2D H- PE 


a 210 


Pal 


EATACT (54, "E7) MEN 


DRAW" bin 114 . Ea 1041 Luz E -ODILSD pl 1D 3L 1D7R1D7L. 4 DARIDER 2D” 
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— ARGUIRIUSLAUS IMta7L 231 6d 5208! 
e pá ES 


la RLUARI" e 
270. FAINT (127, E73l 
| 2 | 


0 PAINT(189, ¡72) SE 5 a . ME A 1 


3400 Pla 
— ADBRZDI SL 1D2L 1D2LAD AL SUSE LOREH 1U7LSDAZ 2D112D5 52 RZPAADERIDSR—— 
En PAINT (225,101), 


(420 


AR) NEXTS SPRITES (k)=BS+NEXT 
+—480—-4 . mi 

-490 l : 
LEDO lets La O A A Lp le 


tUSCIUSLIUSRSUTRIVIRZUIRIFA 


AO FAINT (106, PAR 10 qe e EE AN MM 08 Ae os ¡CE O A A O AE ON 
O . R 


260) DRAW"CSEMA 2%, FODOREDIALADIG: 52 1R4DEGA DIRIDERZDARANZ sy AR LUÉL1U- mm 


SEA A SU2R1UARZ e SHAL2U2L. fa +: des SUIRAVIRZUIRAUS RLULRLUS 


D4G3D= SR7F1DS63 242011 IM1USE1USE 0 H2U2R 214 H2RZUAH2L3 D2GIL 2o2HaU 7 


O DRAW"CORMA23, LO4U2L. 1U9RLUSL 2USRIE MJ2RIUS RSUAE 1RADIR3DIRZDIRZF- 


2RIDEALSULEMEZO, ME AB8R3D: RIDIRB" 


370 PAINT (232,87), a ETA E 
Sn ps 


d Gin O FNEXF 


40 607 o 410 


440 e A - ; a A 
AO” COLOR 15, is SCREENT, q 2,05k EY” DEE? WIDT H e 
460 LOCATE 6% 101 PRINT"UN MOMENTO F or FAVOR" 


rt 


470 FOR K=t TO 13rBg="""FORI= 1TO 


To 6175. (¡STEP 2: VPOKk 


a Jela Zap: NEXT 


1,252: VPOKE 1+1,2534:NEXT 
To 6879 (STEP2 :VPORE 1,251 VPOKE Pass 
 1=6880 TO 6911 STEP2:VPOKE 1,252: 1+1 
156238 TO 6878 STEFS4:UFOKE 1,251: VPOKE eL, X 
1=6270 TO 6910 STEP44:VPOKE 1,252: VPOKE 1+1,254: NEXT” 
c1=6214 106406 STEP64:VPOKE 1,251: VPOKE 1+1,2533NEXT 
1=6246 TO 6438 STEP64:VPOKE Edo 2S4rNEXT 
(1659870 -6662 STEP64VPOKE-1,251:VPOKE: ¡2537NEXT 
I=6630 TO 6694 STEP64:VFOKE 1 2SeEuROKE reo 2H NEXP= > 
-1=6348.- TO 6796 STEP64:VPOKE 1,251: VPOKE I+1,253:NEXT-— 
E=b380 TO -6828. STEP64: VPOKE.- o ade, NEXT 


670 -EOR-1=6226.70..6674. STEP64:VPOKE. 1,251: URDKEL Led, 25BNEX To 
7900 FOR 1=62 258 TO 6706. STEP 64: VPOKE.. O A E A NEXT 


Al 


660 to- .. <STEPOS: 'VPOKE- GE 251: VPOKE: I+i 2 NEXR de ed: dado 
O sk ases VPOKE - 1+1 24 NEXT A e 
1=6680 To 5808. STEP64: : VPOKE odds MERGE 141. ISB2NEXTE— De 

12 TO. 6840 'STEP64: VFOKE. 1,252: VEDKE me a 2534: NEXT... 


| 


4 


l 


uu 


APS 


A 00) 8) 432) + 


: bid Dir 
Ec eerté Meta 


y 


GOSUE 1 
21000 “—btal 
j toto pela A) 
1020 Ss e 


Yuu 


1 
4 


E > GOSUE 
É LLE Xx Sel 


MY 12, Ae N 60s 03 , 


u4ua 


a 


lia 


1240. ab D=5 AND VPEEK(SF)=32 THEN -Y=Y+43 GOTO- E E o 
1250..1F..D=7. AND VPRERISIDASR AND VPEEK(50)=32 AND VPEEK(SPr=32 TH 
EN. X=X-4:F0= 
1260 ON. Fo dosis 1310, 380 
1270 RETURN. 
1280 | 15% O A O DS 
1290 “posturas del Hombre 
1300 * E | 
1310 PUTSPRITE 3,(X,Y),10,3. 
1320 PUTSPRITE 4, (X.Y) 8,4 
Enero PUTSFRITE 5, (X Yi) 12,5 
1340 PUTSFRITE 6 0, MID, 8, FAT 
Ci39o0 RETURN : 
, A 1360. 
mer 380. PUTSPRETE E a El 10,8 a e O 
E 1. 390. FuUTS SPRITE 4, e Ad ,8, $ usara Pa a pu O 
- 1400 PUTSPRITE 5, (X)Y+8),12,10- .. 
14101 PUISARÍTE do, (X=1,M0x0d.).,83, PL 
1420 RETURN | 
1430. dl 
e o 7 patada: 


E 


AND. VPEEK (SD+3 9 =32 THEN Pa =7 oa =4: 


1480 ALE PO=2 AND PEER (81) 
B 1510 
1490 RETURN 
1500 E A E E ñl LE 
pd 15io- -MA= des dq= 17- E 
E a As STRIG(O)0FF A e a 
de 1530.-.BY=(((Y+20) Moró A 
A O OO -GOSUE 1740 ne. : pu DNS A ER 
1550. _BR= ENR(BX, BY): BL ENLCBK, BY). pu 
13460 Y=Y-16. 
1570 ON FO. GOSUR 1310, CE 380. 
1580 Ul=321U2=321UI=ID1 :UG=z0 
1590 GOSUE 1710 
1600 RETURN 
1610. 


MA=0: 14=2 La. Pi= 113 Faz =N 


70 
O 


LAR UA 


¿VPOEE -Bl.- Al 
Ny pued | 

1740. 
117390 PUT: 


1, (BX,EV) ,W,1 
da Í EX EY 11.6 e 
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li A e LE A O AS E A A AO 


AN 


Ñ Pe 


1780- 
E 45 PAR 


1800 


1810. 
LALBZO. 
C0:FUs= 
1830 
+1 


1840 


1850 
1860 


1870 


CC 1880 
1900 
e + 3 to 
razo - 
AS i 
AO 
1950 


1960. 


CASO 

¿(1980 
MI A Y 
¡Flis1:DD= 


EL yO ye Y 


LO 
2140. 
2150. 
2160. 
2170 
2180 


2190. 


2200 


21 o 


2220. 
E AAN z 
2240 
: Ln 


ERE + 


2260 


2270, 
2280. 
2290. 
23001 * 


BRO Ala 


IE hl E 
1F Ra=2 AND MY=Y OR RA=2 AND |MPRER (Pm) 9252] THEN Ef 1 
"ON RA GOTO 1880, dl MEE 
TE MX EXCAÁNDO « 
TFTMXCXITAND Y 
TF ER 
CIFCMYEY ANDAS 


TF MY=Y AND VFEEKCIM) 


FUTS PRITE 13, (MX, MY) ¿01,13 
RETURN. 


“movimiento del monstruo. 


CM=ENM (MX, MY) 2 PM=FNG (MX, MY) EM Sa "ER = 
Lis LIM X MV) DMSENT(MX, MY). e e 


ALE VE>4 OR MEEERACM). sa OR. VPEEK (Pm) < 232 THEN. VE=0: T1=0+ TD=_ 


Di e e 
(IF TI*=1_ AND VPEEK (IM=32 OR TD=1 AND VPEEK (DM) =32 THEN. VE=VE 
1F FUsl THEN MY=MY+ (DDx*4) ¿GOTO 1940 


RA=1 AND MX=X THEN RA=2 


THEN MX=MX-4:G0T0 1940 

2 THEN MX=MX+4:G0T0 1940 
THEN MY=MY-4:GOTO 1940 

30 THEN mitra — O 


teroque del monstruo car paredes ro 


THEN Tiuik - GOSUB 2000 ES 
deal TD=1:GOSUB 2000 


IF MY =Y.. AND VEFEERE CDMA) < 


O ss 


NT (RND 1)%3)-1:1F DD=0 THEN 2000 ELSE: RETURN 


2010. : 
“2030 | monstruo eliminado f 
CRORO : j 
2040 TN=TN+503 Eber E Ue" 
2050 SOUND 2,305 SOUND 9,16: SOUND HE , 15: SOUND 2,15 
2060 MYEZO9 7 i EROS EN 
¿2070 RETURN 2 2 te 
OO muertes + pue pu dad E pu 
O , . , 
ti ALO I=VI=1- i e | 
2120 SOUND. 9, 16: SOUND 2,1005 SOUND 13,14 SOUND 12,5 


MY=156: MX=2221 X=1 4: Y=80 MA 
FOR I=1.TO. 10003 NEXT 0 AA 
SOUND 7,*B1111113 SOUND 9,0 

SOUND Y ¿2B110001 E 

IF VI=d THEN 2220. a 

RETURN ear 


SCREEN. Or LOCA TE 2,8: PRINT"LO SIENTO TUS VIDAS” HAN | ACABADO" 
LOCATE 5,15: PRINT"PUNTOS CONSEGUIDOS= a 

LOCATE +1, 20: PRINF"LO+ INTENTAS DE NUEVO -S51-0- NO A 
X$=INKEEYE is E Y 
IF-x$="5"0R Xx4=g!" THEN. RUN . fer 

IE-Xb= nm 0R- Xé=""N"-THEN- SCREEN. 2 END- 

GOTO LAO 

: datos de los sprites 


* 
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SS FF,FF,FO,EO,E 
HOC ya O 7 7 dl E p 
90,0: ¡Fes fc, EE, FE, e Fe, 


H 


piernas andando 


00405070, 
25to piernas patada 
o | ¡Me cda 


Ñ 


DE SE ETS 


Para Programadores MSX 
tu fiel compañero. 


Esto'no es un libro para el 
principiante. novato, al.«con- 
trario, introduce al progra- 
“mador MSX “dentro” del or” 
denador,.para mostrarle.exac- 
tamente como funciona y co- 

[mo obtenerel máximo partido: 
Los autores- han dividido- 
su libro en dos partes. | 

La primera parte cubre el 

diseño del sistema, ¿ómo él 
 vocabulario.de BASIC se. rela-.....| 
ciona con los ordenadores 
MSX, y-tina introducción có: 
digo máquina. Encontrará ex-... 
plicaciones detalladas sobre la 
organización de la memoria, 
los modos de pantalla y los. 
circuitos de vide y sonido. 
La segunda parte se dedica 
...al..uso .del lenguaje..ensam...... Hu a 
blador en: el sistema MSX. Los principales apartados incluyen los 
pintbs- E mp : S a e 
— El procesador de pantalla: de vídeo. 
—..El circuito de sonido..AY-3-8910.. 
— Entradas/Salidas. E 


GUIA DEL PROGRAMADOR MSX 


Si necesitas escribir programas de alta eficacia o 
solamente quieres como trabaja tiordenador, este libro será” 


inestimable. Pensamos que rapidamente se convertirá en el 


texto base para aquellos programadores que quieren hacer. 


algo"más que escribir programás en “BASIC: 
-P.A.P | 


: Nombre y apellidos . 


=B IBLI 


“máquina dentro: de tus”programas"en Basic: 


... mejorar tus programas en Ba 
. completo y potente en códig 


. ordenadores, desde AMSTRAD aS inclair QL 


“PROGRAMACION 
sd : PRACTICA 
: La llegada de standar MSX, - - 


“marca un paso significativo 
.dentro del mundo de.los or. 


denádores domésticos. Ofre 
ce infinidad-de excitantes 
Oportunidades para. progra 
madores y usuarios. : E 
-Este-libro;-súupone- queno 
tienes conocimient vi 
sobre código má 


explicando -las--equivalentes 


en código: máquina, de las 
principales instrucciones “en 
Basic,.. tales. como. IF,...FOR/... 
NEXT, PRINT, GOTO, GOSUB, 
tc... Continúa con lá descrit 
uy. detallada .de.las.ru- 


tinas individuales de un sim- 
ple juego: “INVASOR DEL 


ESPACIO”, y cómo se enlazan. 
estas rutinas que puedes 


aprovechar en tus programas 
- en Basic: i 


prende lo fácil que ncorpotar rutinas en código 
e Usa el código máquina para crear sonido- y gráficos. 

e Diseña tus propios caracteres y “escenarios” con dos 
programas fáciles de usar. : oa 
Tanto -si-simplemente-desea-incluir-rutinas para “acelera 
máquina, encontrarás este: 
| está suprimida la teoria que 


bro extremadamente útil. En ¡ 
se ¡presenta de «una forma: 


dificulta .el código máquina 
divertida de apre lo. 
pts 


...* La. mayor variedad--de Mbros-de microinformática. 
capaces de satisfacer todas sus... necesidades,--ya--sean--- 


"profesionales, familiares, culturale 


-* Todo tipo de información bibliográfica sobre micro- 


como. si quieres un. programa... 


INN y 


SOFTWARE 


CURSO DE 


- BASIC. 


=y 7 2 


MICROORDENADORES 


El Curso CEAC a Distancia, 
BASIC + Microordenadores, 
le va a introducir paso 
a paso, con un cuidado 
método, en uno de los temas más 
apasionantes de nuestros días: 

la programación de ordenadores. 

Al aprender PRACTICANDO desde un principio 
a programar BASIC, lenguaje diseñado 
especialmente para dar los primeros pasos 
en programación, estará sentando las bases 
para el estudio de Cualquier otro 

lenguaje de altg nivel. 


CENTRO DE ENSEÑANZA A DISTANCIA 
AUTORIZADO POR EL MINISTERIO DE 


EDUCACION Y CIENCIA N.* 8039185 
(BOLETIN OFICIAL DEL ESTADO 3-6-83) 
Aragón, 472 (Dpto. 08013 Barcelona 
Tel.: (93) 245 33 06 


APD Eau DL 


Otros Cursos: 
— Introducción a 
la Informática 
— Electrónica [con experimentos] 
— Contabilidad 
— Fotografía 
— Curso de Video 
— Decoración 


ESTAS ENSEÑANZAS SE AJUSTAN AL ART. 35 . 
DEL DECRETO 707/1976 Y ALA ORDEN MINISTERIAL.DE 5/2/1979 ó 
loz AS A A A A AA AA 


1 deseo recibir a la mayor 
brevedad posible información 


sobre el Curso de: , 
Nombre y apellidos : Edad 
Domicilio 
INS LD Piso Pta. : Mel 

C.Postal_____ Población 

Provincia 
Profesión 
CEAC. Aragón, 472 EMO 3306 

(Y) (Dpto. ] 08013 Barcelona (9 


de | Bi parce 


